home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 441 / aessrc12 / aeswind2.s < prev   
Text File  |  1990-11-23  |  1KB  |  53 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.           .include  "aesfast.sh"
  9.           
  10. ;*************************************************************************
  11. ;*
  12. ;* Window manager routines 2 of 2.
  13. ;*
  14. ;*************************************************************************
  15.  
  16. ;-------------------------------------------------------------------------
  17. ; wind_get
  18. ;-------------------------------------------------------------------------
  19.  
  20. _wind_get::
  21.           .cargs    #8,.handle,.field,.p1.l,.p2.l,.p3.l,.p4.l
  22.           link      a6,#-10
  23.           AControl  104,2,5,0
  24.  
  25.           moveq.l    #-10,d2   
  26.           lea       .handle(a6),a1
  27.           ACall     RET2HERE
  28.  
  29.           moveq.l   #-10,d1
  30.           lea       .p1(a6),a1
  31.           jmp       (a0)
  32.   
  33. ;-------------------------------------------------------------------------
  34. ; wind_calc
  35. ;-------------------------------------------------------------------------
  36.  
  37. _wind_calc::
  38.           .cargs    #8,.i1,.i2,.i3,.i4,.i5,.i6,.p1.l,.p2.l,.p3.l,.p4.l
  39.           link      a6,#-10
  40.  
  41.           AControl  108,6,5,0
  42.           
  43.           moveq.l   #-10,d2    
  44.           lea       .i1(a6),a1
  45.           ACall     RET2HERE
  46.  
  47.           moveq.l   #-10,d1
  48.           lea       .p1(a6),a1
  49.           jmp       (a0)
  50.           
  51. ;         end of code
  52.  
  53.